#!
#to demo the use of pipe

use strict;
my $usage = "Usage:\n\tperl read_page_by_page.pl <filename>";
if(@ARGV!=1)
{
	print $usage;
	exit;
}
my $filename = $ARGV[0];
print "sorry not implemented yet!";